Dim h
With AxG2antt1
	.Columns.Add("C1").SortType = EXG2ANTTLib.SortTypeEnum.SortUserDataString
	.Columns.Add("C2")
	With .Items
		h = .AddItem("Cell 1")
		.CellData(h,0) = "3.your extra data"
		.CellValue(h,1) = "SortValue=3"
		h = .AddItem("Cell 1.1")
		.CellData(h,0) = "1.your extra data"
		.CellValue(h,1) = " SortValue=1"
		h = .AddItem("Cell 1.2")
		.CellData(h,0) = "5.your extra data"
		.CellValue(h,1) = " SortValue=5"
		h = .AddItem("Cell 1.3")
		.CellData(h,0) = "2.your extra data"
		.CellValue(h,1) = " SortValue=2"
	End With
End With

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxG2antt1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditOpen
	Dim c,v
	With AxG2antt1
		With .Items
			v = .CellValue(.FocusItem,0)
			c = .CellCaption(.FocusItem,0)
		End With
		With .Columns.Item(1).Editor
			.ClearItems()
			.AddItem(v,c)
		End With
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("DropDownList")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.AddItem(1,"First")
			.AddItem(2,"Second")
			.AddItem(3,"Third")
		End With
	End With
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.Columns.Add("DropDownList-Related").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
	With .Items
		.CellValue(.AddItem(1),1) = -1
		.CellValue(.AddItem(2),1) = -1
		.CellValue(.AddItem(3),1) = -1
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exBottom) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exBottom,0)
		.ItemDivider(h) = 0
		.ItemDividerLineAlignment(h) = EXG2ANTTLib.DividerAlignmentEnum.DividerTop
		.CellEditorVisible(h,0) = EXG2ANTTLib.EditorVisibleEnum.exEditorHidden
		.CellSingleLine(h,0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
		.CellValueFormat(h,0) = EXG2ANTTLib.ValueFormatEnum.exHTML
		.CellValue(h,0) = "The drop down editor in the second column is filled during the <b>EditOpen event</b>, and the values are based on the selection" & _
" on the first column."
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Def")
	.HotBackColor = RGB(0,0,128)
	.HotForeColor = RGB(255,255,255)
	With .Items
		.AddItem("Item A")
		.AddItem("Item B")
		.AddItem("Item C")
	End With
	.EndUpdate()
End With

Dim hA,hB
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.DrawLevelSeparator = EXG2ANTTLib.LevelLineEnum.exLevelNoLine
		.PaneWidth(False) = 64
		.FirstVisibleDate = #11/23/2011#
		.LevelCount = 3
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.AllowInsideZoom = True
		.InsideZooms.Add(#11/29/2011#).AllowCustomFormat = True
		With .InsideZooms.Item(#11/29/2011#)
			.Width = 68
			.CustomFormat.BackColorChart = RGB(224,224,224)
		End With
	End With
	With .Items
		hA = .AddItem("Task A")
		.AddBar(hA,"Task",#11/24/2011#,#11/26/2011#,"A")
		hB = .AddItem("Task B")
		.AddBar(hB,"Task",#11/28/2011#,#12/1/2011#,"B")
		.AddLink("LinkAB",hA,"A",hB,"B")
		.Link("LinkAB",EXG2ANTTLib.LinkPropertyEnum.exLinkStyle) = 2
		.Link("LinkAB",EXG2ANTTLib.LinkPropertyEnum.exLinkWidth) = 2
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.FirstVisibleDate = #1/1/2002#
	.Columns.Add("Task")
	With .Items
		h = .AddItem("Task")
		.AddBar(h,"Task",#1/2/2002#,#1/4/2002#,"A")
		.AddBar(h,"Task",#1/6/2002#,#1/10/2002#,"B")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.AddLink("AB",h,"A",h,"B")
	End With
	.EndUpdate()
End With

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 0
	End With
	.EndUpdate()
	.Template = "Dim p;p = CreateObject(`Exontrol.Print`);p.PrintExt = Me;p.AutoRelease = False;p.Preview();"
End With

Dim h1,h2
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/5/2001#,#1/7/2001#,"K2")
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkStartPos) = 0
	End With
	.EndUpdate()
	With CreateObject("Exontrol.Print")
		.PrintExt = AxG2antt1.ExecuteTemplate("me")
		.Preview()
	End With
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	.DefaultItemHeight = 24
	With .Chart
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
	End With
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"","This is a the control's font")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h = .AddItem("Smaller")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"","<font ;5>This is a the control's font with a smaller size")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h = .AddItem("Larger")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"","<font ;15>This is a the control's font with a larger size")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h = .AddItem("Tahoma 1")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"","<font Tahoma>This is using a Tahoma font")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h = .AddItem("Tahoma 2")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"","<font Tahoma;14>This is using a <b>Tahoma</b> font with a different size")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .ConditionalFormats.Add("1","K1")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	With .ConditionalFormats.Add("1","K2")
		.BackColor = RGB(255,0,0)
		.ApplyTo = &H2
	End With
	.MarkSearchColumn = False
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	With .Columns
		.Add("Column 1")
		.Add("Column 2")
		.Add("Column 3")
	End With
	With .Items
		.AddItem()
		.AddItem()
		.AddItem()
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(0) = True
	End With
	.EndUpdate()
	.DefaultItemHeight = 12
	.Items.ItemHeight(0) = 12
End With

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Tasks")
		With .Add("Start")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		End With
		With .Add("End")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.FormatColumn = "value + '<font ;6> '  + (weekday(date(value)) case(0:'Sun';1:'Mon';2:'Tue';3:'Wed';4:'Thu';5:'Fri';6:'Sat'))"
		End With
	End With
	With .Chart
		.FirstVisibleDate = #9/20/2006#
		.AllowLinkBars = False
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.LevelCount = 2
		.PaneWidth(False) = 256
		.NonworkingDays = 0
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#)
		.AddBar(.AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#)
		.AddBar(.AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	With .Columns
		.Add("Tasks")
		.Add("Start").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		With .Add("End")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
			.FormatColumn = "shortdate(date(value)-1)"
		End With
	End With
	With .Chart
		.FirstVisibleDate = #9/20/2006#
		.AllowLinkBars = False
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.LevelCount = 2
		.PaneWidth(False) = 196
		.NonworkingDays = 0
	End With
	With .Items
		.AllowCellValueToItemBar = True
		.AddBar(.AddItem("Task 1"),"Task",#9/21/2006#,#9/24/2006#)
		.AddBar(.AddItem("Task 2"),"Task",#9/22/2006#,#9/25/2006#)
		.AddBar(.AddItem("Task 3"),"Task",#9/23/2006#,#9/26/2006#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.FirstVisibleDate = 0
		.NonworkingDays = 0
		With .Level(0)
			.Unit = EXG2ANTTLib.UnitEnum.exDay
			.Count = 16
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<%i%>"
			.FormatLabel = "'Half ' + (1 + (value/16) mod 2)"
		End With
		With .Level(1)
			.Label = "<%i%>"
			.FormatLabel = "1 + value mod 16"
			.ReplaceLabel(2) = "<font ;10><B>Y"
		End With
		.AdjustLevelsToBase = True
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exStartDate) = 0
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exEndDate) = 31
	End With
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		With .Items
			.SelectItem(e.item) = True
			.EnsureVisibleItem(e.item)
		End With
		.Edit(0)
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxG2antt1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ButtonClickEvent) Handles AxG2antt1.ButtonClick
	With AxG2antt1
		.DataSource.AddNew()
	End With
End Sub

Dim h,rs
With AxG2antt1
	rs = CreateObject("ADODB.Recordset")
	With rs.Fields
		.Append("Task",8)
		.Append("Start",7)
		.Append("End",7)
	End With
	rs.Open()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.DetectAddNew = True
	.DetectDelete = True
	.DataSource = rs
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.ItemDivider(h) = 0
		.ItemHeight(h) = 22
		.CellValue(h,0) = "AddNew"
		.CellHasButton(h,0) = True
		.CellHAlignment(h,0) = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
End With

' CreateBar event - Fired when the user creates a new bar.
Private Sub AxG2antt1_CreateBar(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CreateBarEvent) Handles AxG2antt1.CreateBar
	With AxG2antt1
		With .Items
			.ItemBar(e.item,"newbar",EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart) = AxG2antt1.Chart.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exMinDate)
			.ItemBar(e.item,"newbar",EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd) = AxG2antt1.Chart.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exMaxDate)
		End With
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		.PaneWidth(False) = 56
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exStartDate) = #1/1/2001#
		.ScrollRange(EXG2ANTTLib.ScrollRangeEnum.exEndDate) = #1/15/2001#
		.FirstVisibleDate = #1/12/2001#
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
	End With
	With .Items
		.AddItem("Task 1")
		.AddItem("Task 2")
		.AddItem("Task 3")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.Columns.Add("Def")
	With .Items
		.AddItem(1)
		.AddItem(2)
		Debug.Print( .ItemByIndex(.ItemCount) )
	End With
End With

With AxG2antt1
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		With .Level(0)
			.Label = "<%dd%>.<%mmm%>.<%yyyy%>"
			.Unit = EXG2ANTTLib.UnitEnum.exWeek
			.Alignment = EXG2ANTTLib.AlignmentEnum.exHOutside Or EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
	End With
End With

Dim h,h1
With AxG2antt1
	.BeginUpdate()
	.SingleSel = False
	With .Chart
		.LevelCount = 2
		.AllowLinkBars = False
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.FirstVisibleDate = #12/24/2000#
		.HistogramVisible = True
		.HistogramHeight = 64
		.PaneWidth(False) = 128
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramSelectedItems
		With .Bars.Item("Task")
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
			.HistogramItems = 6
			.HistogramPattern = .Pattern
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exKeepOriginalColor
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsOffset
		End With
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Project")
		.ItemBold(h) = True
		.SelectableItem(h) = False
		h1 = .InsertItem(h,Nothing,"Item 1")
		.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#)
		h1 = .InsertItem(h,Nothing,"Item 2")
		.AddBar(h1,"Task",#1/3/2001#,#1/5/2001#)
		h1 = .InsertItem(h,Nothing,"Item 3")
		.AddBar(h1,"Task",#1/4/2001#,#1/6/2001#)
		.AddBar(h1,"Task",#1/1/2001#,#1/3/2001#,"green")
		.ItemBar(h1,"green",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 65280
		.AddBar(h1,"Task",#1/8/2001#,#1/10/2001#,"red")
		.ItemBar(h1,"red",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 255
		.ExpandItem(h) = True
		.SelectAll()
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramHeight = 64
		.PaneWidth(False) = 128
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
		With .Bars.Item("Task")
			.HistogramPattern = EXG2ANTTLib.PatternEnum.exPatternSolid
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
			.HistogramItems = 6
			.HistogramRulerLinesColor = RGB(128,0,0)
			.HistogramBorderColor = RGB(1,0,0)
			.HistogramCumulativeShowLegend = 65535
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exChangeColor
		End With
	End With
	With .Columns.Add("Column")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Project 1")
		.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 3"),"Task",#1/4/2001#,#1/6/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 4"),"Task",#1/2/2001#,#1/8/2001#)
		.CellState(.ItemByIndex(1),0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.SelBackColor = .BackColor
	.SelForeColor = .ForeColor
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.HistogramVisible = True
		.HistogramHeight = 64
		.PaneWidth(False) = 128
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramNoGrouping Or EXG2ANTTLib.HistogramViewEnum.exHistogramLeafItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramUnlockedItems Or EXG2ANTTLib.HistogramViewEnum.exHistogramCheckedItems
		With .Bars.Item("Task")
			.Color = RGB(128,128,128)
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistCumulative
			.HistogramItems = 6
			.HistogramRulerLinesColor = RGB(128,0,0)
			.HistogramBorderColor = RGB(1,0,0)
			.HistogramCumulativeColors = 2
			.HistogramCumulativeColor(0) = RGB(0,0,255)
			.HistogramCumulativeColor(1) = RGB(0,0,255)
			.HistogramCumulativeOriginalColorBars = EXG2ANTTLib.HistogramCumulativeOriginalColorBarsEnum.exChangeColor
			.HistogramPattern = .Pattern
			.HistogramCumulativeShowLegend = 65535
		End With
	End With
	With .Columns.Add("Column")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
		.PartialCheck = True
	End With
	With .Items
		h = .AddItem("Project 1")
		.AddBar(.InsertItem(h,Nothing,"Item 1"),"Task",#1/2/2001#,#1/4/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 2"),"Task",#1/3/2001#,#1/5/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 3"),"Task",#1/4/2001#,#1/6/2001#)
		.AddBar(.InsertItem(h,Nothing,"Item 4"),"Task",#1/2/2001#,#1/8/2001#)
		.CellState(.ItemByIndex(1),0) = 1
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
		.NonworkingDaysColor = RGB(0,0,0)
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramBackground Or EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.LevelCount = 2
		With .Bars
			With .Add("Empty")
				.Color = RGB(0,0,0)
				.Pattern = EXG2ANTTLib.PatternEnum.exPatternFDiagonal
				.Shape = EXG2ANTTLib.ShapeBarEnum.exShapeSolidFrameless
			End With
			With .Add("Task:Empty")
				.Shortcut = "Task"
				.HistogramItems = -5
				.HistogramCriticalValue = 3
				.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverload
				.HistogramPattern = .Pattern
				.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption) = "<%=%258%> working days bar"
				.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
				.Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
			End With
		End With
		.UnitWidthNonworking = -12
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#6/23/2005#,#6/29/2005#,"")
		.AddBar(.AddItem("Task B"),"Task",#6/24/2005#,#6/28/2005#,"")
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		With .Items
			.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub AxG2antt1_Error(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ErrorEvent) Handles AxG2antt1.Error
	With AxG2antt1
		Debug.Print( e.error )
		Debug.Print( e.description )
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #8/3/1994#
		.PaneWidth(False) = 256
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
	End With
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1)
	End With
	.DataSource = rs
	.Items.AllowCellValueToItemBar = True
	.Columns.Item(2).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
	.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.LevelCount = 2
		With .Bars.Item("Task")
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
			.HistogramPattern = .Pattern
		End With
		.UnitWidthNonworking = -8
		.Level(1).FormatLabel = "weekday(dvalue) in (0,6) ? `` : value"
	End With
	With .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",#6/23/2005#,#6/29/2005#,"","4 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 4
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		h = .AddItem("Task B")
		.AddBar(h,"Task",#6/28/2005#,#6/30/2005#,"","2 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 2
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.LevelCount = 2
		With .Bars.Item("Task")
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
			.HistogramPattern = .Pattern
		End With
		.ShowNonworkingDates = False
		.ShowNonworkingUnits = False
	End With
	With .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",#6/23/2005#,#6/29/2005#,"","4 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 4
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		h = .AddItem("Task B")
		.AddBar(h,"Task",#6/28/2005#,#6/30/2005#,"","2 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 2
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 40
		.FirstVisibleDate = #6/20/2005#
		.HistogramVisible = True
		.HistogramHeight = 64
		.HistogramView = EXG2ANTTLib.HistogramViewEnum.exHistogramAllItems
		.LevelCount = 2
		With .Bars.Item("Task")
			.HistogramType = EXG2ANTTLib.HistogramTypeEnum.exHistOverAllocation
			.HistogramPattern = .Pattern
		End With
	End With
	With .Items
		h = .AddItem("Task A")
		.AddBar(h,"Task",#6/23/2005#,#6/29/2005#,"","4 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 4
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		h = .AddItem("Task B")
		.AddBar(h,"Task",#6/28/2005#,#6/30/2005#,"","2 working days bar")
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanResize) = False
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarEffort) = 2
		.ItemBar(h,"",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
	End With
	.EndUpdate()
End With

' OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
Private Sub AxG2antt1_OverviewZoom(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.OverviewZoom
	With AxG2antt1
		Debug.Print( .Chart.UnitScale )
	End With
End Sub

With AxG2antt1
	With .Chart
		.PaneWidth(False) = 0
		.LevelCount = 2
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
	End With
End With

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Chart
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
		Debug.Print( .OverviewZoomCaption )
		.OverviewZoomCaption = "Year|½Year|¼Year|Month|Third|<img>1</img>|Day|Hour|Min|Sec"
	End With
End With

With AxG2antt1
	With .Chart
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.Label(EXG2ANTTLib.UnitEnum.exYear) = ""
	End With
End With

With AxG2antt1
	.BeginUpdate()
	.GridLineColor = RGB(0,0,0)
	.VisualAppearance.Add(3,"gBFLBCJwBAEHhEJAEGg4BdMIQAAYAQGKIYBkAKBQAGaAoDDUNw5QwAAwjSKkEwsACEIrjKCRShyCYZRhGcTAFBMIhkGoSZKlCIRVDCKYJDbKACSFKkNQ7AabZBgOQJV" & _
"gOKovThKcIybQAASJCKRY7nUIIJA+SoDSRAbqhYIgASnKqLJAkACIJJAaRjHQdJxGKKMQANBghCZseKhWgkKIJUxAdLTWAAMQuaCoZ5icRAca2fJ+XzfeBYDgmAYNQbD" & _
"cJhHCMMwXDaJZBiGJ4dimI4rR7JIDzDJ8cxbEKTZ5meg5boGRZNTrMQA0fQ9MynK6vahfOi7DpuaZnWrcMb2fYNZwrGq0bxoW58BwmP5/XrkNa4XgcVgmAUBA")
	.HeaderHeight = 20
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exHour
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.exHOutside
			.Label = "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
			.DrawTickLines = EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
		End With
		With .Level(1)
			.Label = "<%hh%>:00"
			.BackColor = &H3000000
			.DrawTickLines = EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
		End With
		.DrawLevelSeparator = EXG2ANTTLib.LevelLineEnum.exLevelSolidLine
		.UnitWidth = 64
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exMinute
		.ResizeUnitCount = 15
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 0
		.LevelCount = 2
		.UnitWidth = 48
		.UnitScale = EXG2ANTTLib.UnitEnum.exHour
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.exHOutside Or EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<%dddd%>, <%mmmm%> <b><%d%></b>, <%yyyy%>"
		End With
		.Level(1).Label = "<%hh%>:00"
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.Items.AllowCellValueToItemBar = True
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #12/25/2000#
		.PaneWidth(False) = 128
	End With
	With .Columns.Add("Start")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
	End With
	With .Columns.Add("End")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "K1"
	End With
	With .Items
		.AddBar(.AddItem(),"Task",#1/1/2001#,#1/5/2001#,"K1")
		.AddBar(.AddItem(),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem(),"Task",#1/3/2001#,#1/7/2001#,"????","????")
	End With
	.EndUpdate()
End With

' OLEStartDrag event - Occurs when the OLEDrag method is called.
Private Sub AxG2antt1_OLEStartDrag(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OLEStartDragEvent) Handles AxG2antt1.OLEStartDrag
	' Data.SetData("your data to drag")
	With AxG2antt1
		e.allowedEffects = 2
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.Columns.Add("Default")
	With .Items
		.AddItem("Item 1")
		.AddItem("Item 2")
		.AddItem("Item 3")
		.AddItem("Item 4")
		.AddItem("Item 5")
	End With
	.OLEDropMode = EXG2ANTTLib.exOLEDropModeEnum.exOLEDropManual
	.EndUpdate()
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxG2antt1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ButtonClickEvent) Handles AxG2antt1.ButtonClick
	With AxG2antt1
		.BeginUpdate()
		With .Columns
			.Item("Tasks").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "B"
			.Item("Start").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "B"
			.Item("End").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "B"
		End With
		With .Items
			.CellValue(e.item,1) = "B"
			.ItemBar(0,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 0
			.ItemBar(0,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16775408
		End With
		.EndUpdate()
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Columns
		With .Add("Tasks")
			.Width = 32
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 3
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
		End With
		With .Add("Start")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		End With
		With .Add("End")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey) = "A"
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		End With
	End With
	With .Chart
		.FirstVisibleDate = #9/20/2006#
		.AllowLinkBars = True
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.LevelCount = 2
		.PaneWidth(False) = 196
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
			.OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
			.Overlaid(EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsTransparent) = 80
		End With
	End With
	With .Items
		.LockedItemCount(EXG2ANTTLib.VAlignmentEnum.exTop) = 1
		h = .LockedItem(EXG2ANTTLib.VAlignmentEnum.exTop,0)
		.CellValue(h,0) = "Select"
		.CellHasButton(h,0) = True
		.CellMerge(h,1) = 2
		.CellValue(h,1) = "A"
		.CellEditor(h,1).EditType = EXG2ANTTLib.EditTypeEnum.EditType
	End With
	With .Items
		.AllowCellValueToItemBar = True
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#9/21/2006#,#9/24/2006#,"A","A")
		.AddBar(h,"Task",#9/25/2006#,#9/28/2006#,"B","B")
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16775408
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#9/22/2006#,#9/25/2006#,"A","A")
		.AddBar(h,"Task",#9/26/2006#,#9/29/2006#,"B","B")
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarColor) = 16775408
	End With
	.EndUpdate()
End With

' AddLink event - Occurs when the user links two bars using the mouse.
Private Sub AxG2antt1_AddLink(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddLinkEvent) Handles AxG2antt1.AddLink
	With AxG2antt1
		Debug.Print( "AddLink" )
		Debug.Print( e.linkKey )
	End With
End Sub

' AfterExpandItem event - Fired after an item is expanded (collapsed).
Private Sub AxG2antt1_AfterExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AfterExpandItemEvent) Handles AxG2antt1.AfterExpandItem
	With AxG2antt1
		Debug.Print( "AfterExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' AllowLink event - Notifies at runtime when a link between two bars is possible.
Private Sub AxG2antt1_AllowLink(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AllowLinkEvent) Handles AxG2antt1.AllowLink
	With AxG2antt1
		Debug.Print( "AllowLink" )
		Debug.Print( e.startItem )
		Debug.Print( e.startBarKey )
		Debug.Print( e.endItem )
		Debug.Print( e.endBarKey )
		Debug.Print( e.linkKey )
	End With
End Sub

' AnchorClick event - Occurs when an anchor element is clicked.
Private Sub AxG2antt1_AnchorClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AnchorClickEvent) Handles AxG2antt1.AnchorClick
	With AxG2antt1
		Debug.Print( "AnchorClick" )
		Debug.Print( e.anchorID )
		Debug.Print( e.options )
	End With
End Sub

' BarParentChange event - Occurs just before moving a bar from current item to another item.
Private Sub AxG2antt1_BarParentChange(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarParentChangeEvent) Handles AxG2antt1.BarParentChange
	With AxG2antt1
		Debug.Print( "BarParentChange" )
		Debug.Print( e.item )
		Debug.Print( e.key )
		Debug.Print( e.newItem )
	End With
End Sub

' BarResize event - Occurs when a bar is moved or resized.
Private Sub AxG2antt1_BarResize(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizeEvent) Handles AxG2antt1.BarResize
	With AxG2antt1
		Debug.Print( "BarResize" )
		Debug.Print( e.item )
		Debug.Print( e.key )
	End With
End Sub

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
	With AxG2antt1
		Debug.Print( "BarResizing" )
		Debug.Print( e.item )
		Debug.Print( e.key )
	End With
End Sub

' BeforeExpandItem event - Fired before an item is about to be expanded (collapsed).
Private Sub AxG2antt1_BeforeExpandItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BeforeExpandItemEvent) Handles AxG2antt1.BeforeExpandItem
	With AxG2antt1
		Debug.Print( "BeforeExpandItem" )
		Debug.Print( e.item )
	End With
End Sub

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxG2antt1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ButtonClickEvent) Handles AxG2antt1.ButtonClick
	With AxG2antt1
		Debug.Print( "ButtonClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.key )
	End With
End Sub

' CellImageClick event - Fired after the user clicks on the image's cell area.
Private Sub AxG2antt1_CellImageClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellImageClickEvent) Handles AxG2antt1.CellImageClick
	With AxG2antt1
		Debug.Print( "CellImageClick" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		Debug.Print( "CellStateChanged" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' Change event - Occurs when the user changes the cell's content.
Private Sub AxG2antt1_Change(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChangeEvent) Handles AxG2antt1.Change
	With AxG2antt1
		Debug.Print( "Change" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
		Debug.Print( e.newValue )
	End With
End Sub

' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub AxG2antt1_ChartEndChanging(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChartEndChangingEvent) Handles AxG2antt1.ChartEndChanging
	With AxG2antt1
		Debug.Print( "ChartEndChanging" )
		Debug.Print( e.operation )
	End With
End Sub

' ChartSelectionChanged event - Occurs when the user selects objects in the chart area.
Private Sub AxG2antt1_ChartSelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ChartSelectionChanged
	With AxG2antt1
		Debug.Print( "ChartSelectionChanged" )
	End With
End Sub

' ChartStartChanging event - Occurs when the chart is about to be changed.
Private Sub AxG2antt1_ChartStartChanging(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ChartStartChangingEvent) Handles AxG2antt1.ChartStartChanging
	With AxG2antt1
		Debug.Print( "ChartStartChanging" )
		Debug.Print( e.operation )
	End With
End Sub

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
	With AxG2antt1
		Debug.Print( "Click" )
	End With
End Sub

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxG2antt1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ColumnClickEvent) Handles AxG2antt1.ColumnClick
	With AxG2antt1
		Debug.Print( "ColumnClick" )
	End With
End Sub

' CreateBar event - Fired when the user creates a new bar.
Private Sub AxG2antt1_CreateBar(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CreateBarEvent) Handles AxG2antt1.CreateBar
	With AxG2antt1
		Debug.Print( "CreateBar" )
		Debug.Print( e.item )
		Debug.Print( e.dateStart )
		Debug.Print( e.dateEnd )
	End With
End Sub

' DateChange event - Occurs when the first visible date is changed.
Private Sub AxG2antt1_DateChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.DateChange
	With AxG2antt1
		Debug.Print( "DateChange" )
	End With
End Sub

' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub AxG2antt1_DblClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_DblClickEvent) Handles AxG2antt1.DblClick
	With AxG2antt1
		Debug.Print( "DblClick" )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
		.Edit()
	End With
End Sub

' Edit event - Occurs just before editing the focused cell.
Private Sub AxG2antt1_EditEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_EditEvent) Handles AxG2antt1.EditEvent
	With AxG2antt1
		Debug.Print( "Edit" )
		Debug.Print( e.item )
		Debug.Print( e.colIndex )
	End With
End Sub

' EditClose event - Occurs when the edit operation ends.
Private Sub AxG2antt1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditCloseEvent
	With AxG2antt1
		Debug.Print( "EditClose" )
	End With
End Sub

' EditOpen event - Occurs when the edit operation starts.
Private Sub AxG2antt1_EditOpen(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditOpen
	With AxG2antt1
		Debug.Print( "EditOpen" )
	End With
End Sub

' FilterChange event - Occurs when the filter was changed.
Private Sub AxG2antt1_FilterChange(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChange
	With AxG2antt1
		Debug.Print( "FilterChange" )
	End With
End Sub

' FilterChanging event - Notifies your application that the filter is about to change.
Private Sub AxG2antt1_FilterChanging(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FilterChanging
	With AxG2antt1
		Debug.Print( "FilterChanging" )
	End With
End Sub

' FocusChanged event - Occurs when a cell gets the focus.
Private Sub AxG2antt1_FocusChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.FocusChanged
	With AxG2antt1
		Debug.Print( "FocusChanged" )
	End With
End Sub

' InsideZoom event - Notifies your application that a date is about to be magnified.
Private Sub AxG2antt1_InsideZoom(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_InsideZoomEvent) Handles AxG2antt1.InsideZoom
	With AxG2antt1
		Debug.Print( "InsideZoom" )
		Debug.Print( e.dateTime )
	End With
End Sub

' KeyDown event - Occurs when the user presses a key while an object has the focus.
Private Sub AxG2antt1_KeyDownEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_KeyDownEvent) Handles AxG2antt1.KeyDownEvent
	With AxG2antt1
		Debug.Print( "KeyDown" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' KeyPress event - Occurs when the user presses and releases an ANSI key.
Private Sub AxG2antt1_KeyPressEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_KeyPressEvent) Handles AxG2antt1.KeyPressEvent
	With AxG2antt1
		Debug.Print( "KeyPress" )
		Debug.Print( e.keyAscii )
	End With
End Sub

' KeyUp event - Occurs when the user releases a key while an object has the focus.
Private Sub AxG2antt1_KeyUpEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_KeyUpEvent) Handles AxG2antt1.KeyUpEvent
	With AxG2antt1
		Debug.Print( "KeyUp" )
		Debug.Print( e.keyCode )
		Debug.Print( e.shift )
	End With
End Sub

' LayoutChanged event - Occurs when column's position or column's size is changed.
Private Sub AxG2antt1_LayoutChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.LayoutChanged
	With AxG2antt1
		Debug.Print( "LayoutChanged" )
	End With
End Sub

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub AxG2antt1_MouseDownEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseDownEvent) Handles AxG2antt1.MouseDownEvent
	With AxG2antt1
		Debug.Print( "MouseDown" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' MouseMove event - Occurs when the user moves the mouse.
Private Sub AxG2antt1_MouseMoveEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseMoveEvent) Handles AxG2antt1.MouseMoveEvent
End Sub

' MouseUp event - Occurs when the user releases a mouse button.
Private Sub AxG2antt1_MouseUpEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseUpEvent) Handles AxG2antt1.MouseUpEvent
	With AxG2antt1
		Debug.Print( "MouseUp" )
		Debug.Print( e.button )
		Debug.Print( e.shift )
		Debug.Print( e.x )
		Debug.Print( e.y )
	End With
End Sub

' OffsetChanged event - Occurs when the scroll position has been changed.
Private Sub AxG2antt1_OffsetChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OffsetChangedEvent) Handles AxG2antt1.OffsetChanged
	With AxG2antt1
		Debug.Print( "OffsetChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' OversizeChanged event - Occurs when the right range of the scroll has been changed.
Private Sub AxG2antt1_OversizeChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_OversizeChangedEvent) Handles AxG2antt1.OversizeChanged
	With AxG2antt1
		Debug.Print( "OversizeChanged" )
		Debug.Print( e.horizontal )
		Debug.Print( e.newVal )
	End With
End Sub

' OverviewZoom event - Occurs once the user selects a new time scale unit in the overview zoom area.
Private Sub AxG2antt1_OverviewZoom(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.OverviewZoom
	With AxG2antt1
		Debug.Print( "OverviewZoom" )
	End With
End Sub

' RClick event - Fired when right mouse button is clicked
Private Sub AxG2antt1_RClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.RClick
	With AxG2antt1
		Debug.Print( "RClick" )
	End With
End Sub

' ScrollButtonClick event - Occurs when the user clicks a button in the scrollbar.
Private Sub AxG2antt1_ScrollButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ScrollButtonClickEvent) Handles AxG2antt1.ScrollButtonClick
	With AxG2antt1
		Debug.Print( "ScrollButtonClick" )
		Debug.Print( e.scrollBar )
		Debug.Print( e.scrollPart )
	End With
End Sub

' SelectionChanged event - Fired after a new item has been selected.
Private Sub AxG2antt1_SelectionChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.SelectionChanged
	With AxG2antt1
		Debug.Print( "SelectionChanged" )
	End With
End Sub

' Sort event - Fired when the control sorts a column.
Private Sub AxG2antt1_Sort(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.Sort
	With AxG2antt1
		Debug.Print( "Sort" )
	End With
End Sub

Dim h
With AxG2antt1
	.BeginUpdate()
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesHDash
	.AutoEdit = False
	.ExpandOnDblClick = False
	With .Chart
		.AllowInsideZoom = True
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
		.AllowOverviewZoom = EXG2ANTTLib.OverviewZoomEnum.exAlwaysZoom
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesVSolid Or EXG2ANTTLib.GridLinesStyleEnum.exGridLinesHDash
		.LevelCount = 2
		.Level(0).DrawGridLines = True
		.Bars.Item("Task").Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
		.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
		.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
	End With
	With .Columns
		With .Add("Column")
			.DisplayFilterButton = True
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
			.Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		End With
		With .Add("Button")
			.AllowSizing = False
			.Width = 18
			.Def(EXG2ANTTLib.DefColumnEnum.exCellHasButton) = True
		End With
	End With
	With .Items
		h = .AddItem("parent")
		.CellImage(h,0) = 1
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A","<a>A</a>")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "This is a bit of text that should be shown when cursor hovers the bar"
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B","<a>B</a>")
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"B",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
		.InsertItem(h,"","child")
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesHDash
	With .Chart
		.PaneWidth(False) = 48
		.FirstVisibleDate = #1/1/2001#
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
		.GridLineStyle = EXG2ANTTLib.GridLinesStyleEnum.exGridLinesVSolid Or EXG2ANTTLib.GridLinesStyleEnum.exGridLinesHDash
		.LevelCount = 2
		.Level(0).DrawGridLines = True
		.Bars.Item("Task").Pattern = EXG2ANTTLib.PatternEnum.exPatternSolid
	End With
	.Columns.Add("Column")
	With .Items
		h = .AddItem("Item 1")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"A")
		.AddBar(h,"Task",#1/8/2001#,#1/15/2001#,"B")
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		With .Items
			.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
		End With
	End With
End Sub

' Error event - Fired when an internal error occurs.
Private Sub AxG2antt1_Error(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ErrorEvent) Handles AxG2antt1.Error
	With AxG2antt1
		Debug.Print( e.error )
		Debug.Print( e.description )
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #8/3/1994#
		.PaneWidth(False) = 256
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
	End With
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",1,1)
	End With
	.DataSource = rs
	.Items.AllowCellValueToItemBar = True
	.Columns.Item(2).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
	.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
	.EndUpdate()
End With

' ColumnClick event - Fired after the user clicks on column's header.
Private Sub AxG2antt1_ColumnClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ColumnClickEvent) Handles AxG2antt1.ColumnClick
	' Column.Selected = True
	With AxG2antt1
		.BeginUpdate()
		.Columns.Item(0).Selected = False
		.Columns.Item(1).Selected = False
		.Items.SelectAll()
		.EndUpdate()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.ShowFocusRect = False
	.SingleSel = False
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
	.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exNoSort
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.CellValue(.AddItem("One"),1) = "Three"
		.CellValue(.AddItem("Two"),1) = "Four"
		.SelectAll()
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.SearchColumnIndex = -1
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
	.ShowFocusRect = False
	.MarkSearchColumn = False
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.CellValue(.AddItem(1),1) = 2
		.CellValue(.AddItem(3),1) = 4
		.CellValue(.AddItem(5),1) = 6
	End With
	.EndUpdate()
End With

With AxG2antt1
	With .Columns.Add("Currency")
		.FormatColumn = "dbl(value) ? currency(dbl(value)) : ``"
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.Numeric = EXG2ANTTLib.NumericEnum.exFloat
		End With
	End With
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With AxG2antt1
	.Columns.Add("Number")
	.Columns.Add("Currency").ComputedField = "%0 ? currency(%0) : ``"
	With .Items
		.AddItem(1.23)
		.AddItem(2.34)
		.AddItem(0)
		.AddItem(10000.99)
	End With
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 32
	With .Chart
		.FirstVisibleDate = #6/8/2011#
		.AdjustLevelsToBase = True
		.PaneWidth(False) = 0
		.LevelCount = 2
		.AllowInsideZoom = True
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<b><%d%>-<%mmm%>-<%yyyy%>"
			.Unit = EXG2ANTTLib.UnitEnum.exDay
		End With
		With .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = EXG2ANTTLib.UnitEnum.exHour
			.FormatLabel = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : '" & _
"Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; " & _
"16 : 'Shift <b>3</b><br>26/24' ) ) )"
		End With
		.UnitWidth = 64
		.NonworkingDays = 0
		.AllowInsideZoom = True
		.DefaultInsideZoomFormat.InsideUnit = EXG2ANTTLib.UnitEnum.exMinute
		.AllowResizeInsideZoom = False
		.InsideZoomOnDblClick = False
		With .InsideZooms
			.SplitBaseLevel = False
			.DefaultWidth = 0
		End With
		With .InsideZooms
			.Add(#6/9/2011 8:00:00 AM#)
			.Add(#6/9/2011 4:00:00 PM#)
		End With
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
	.VisualAppearance.Add(2,"c:\exontrol\images\pushed.ebn")
	.Columns.Add("Task")
	.Chart.PaneWidth(False) = 128
	With .Chart.Bars
		.Item("Task").Color = &H1000000
		.Item("Split").Color = &H2000000
		.Add("Task:Split").Shortcut = "TS"
	End With
	.Chart.FirstVisibleDate = #1/1/2001#
	With .Items
		.AddBar(.AddItem("Task"),"TS",#1/2/2001#,#1/16/2001#)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.FirstVisibleDate = #12/27/2000#
		.PaneWidth(False) = 128
		With .Bars.Item("Task")
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternDot
			.Height = 15
		End With
	End With
	With .Items
		h = .AddItem("Task 1")
		.AddBar(h,"Task",#1/3/2001#,#1/8/2001#,"K1","<b>to do</b> ")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 2
		h = .AddItem("Task 2")
		.AddBar(h,"Task",#1/3/2001#,#1/8/2001#,"K2","<b>to do</b>")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		h = .AddItem("Task 3")
		.AddBar(h,"Task",#1/3/2001#,#1/8/2001#,"K1"," <b>to do</b>")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 0
		h = .AddItem("Task 4")
		.AddBar(h,"Task",#1/3/2001#,#1/8/2001#,"K2","<b>to do</b>")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 16
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
	Debug.Print( .GetItems(1) )
End With

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exLeftArrow) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exRightArrow) = 0
	End With
	With .Items
		.AddItem("Cell 1")
		.AddItem("Cell 2")
		.AddItem("Cell 3")
	End With
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.LevelCount = 2
		.PaneWidth(False) = 48
		.AllowNonworkingBars = True
		.Bars.Add("Task:Split").Shortcut = "Task"
		.UnitScale = EXG2ANTTLib.UnitEnum.exHour
		.Level(1).Label = "<font ;4><%hh%>"
		.UnitWidth = 12
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
		.NonworkingDays = 0
	End With
	.Columns.Add("Tasks")
	With .Items
		h = .AddItem("Machine")
		.ItemNonworkingUnits(h,False) = "0"
		.AddBar(h,"",#1/1/2001 9:00:00 AM#,#1/1/2001 11:00:00 AM#,"A","pause")
		.ItemBar(h,"A",EXG2ANTTLib.ItemBarPropertyEnum.exBarTreatAsNonworking) = True
		.AddBar(h,"Task",#1/1/2001 0:00:00 PM#,#1/1/2001 5:00:00 PM#,"Z")
		.ItemBar(h,"Z",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 32
	With .Chart
		.FirstVisibleDate = #6/8/2011#
		.AdjustLevelsToBase = True
		.PaneWidth(False) = 0
		.LevelCount = 2
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = EXG2ANTTLib.UnitEnum.exDay
		End With
		With .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = EXG2ANTTLib.UnitEnum.exHour
			.FormatLabel = "date(int(dvalue)) case (#06/08/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>23/20'; 8 : 'Shift <b>2</b><br>38/30' ; 16 : '" & _
"Shift <b>3</b><br>24/24' ) ) ; #06/09/2011# : (int(value) case ( 0 : 'Shift <b>1</b><br>15/20'; 8 : 'Shift <b>2</b><br>30/32' ; " & _
"16 : 'Shift <b>3</b><br>26/24' ) ) )"
		End With
		.UnitWidth = 64
		.NonworkingDays = 0
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Tasks")
	With .Chart
		.PaneWidth(False) = 64
		.FirstVisibleDate = #6/19/2005#
	End With
	With .Items
		h = .AddItem("Test")
		.AddBar(h,"Task",#6/22/2005#,#6/27/2005#,"t1")
		.AddBar(h,.ItemBar(h,"t1",EXG2ANTTLib.ItemBarPropertyEnum.exBarName),#6/21/2005#,#6/22/2005#,"t1")
	End With
	.EndUpdate()
End With

' EditClose event - Occurs when the edit operation ends.
Private Sub AxG2antt1_EditCloseEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.EditCloseEvent
	With AxG2antt1
		.Items.AddItem("")
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.AutoEdit = True
	.Columns.Add("Default").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exColumnSel
	.Items.AddItem("")
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.ScrollBars = EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		With .Items
			.AddBar(e.item,"Task",.CellValue(e.item,2),.CellValue(e.item,4))
		End With
	End With
End Sub

Dim rs
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #8/3/1994#
		.PaneWidth(False) = 256
		.LevelCount = 2
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.OverviewVisible = EXG2ANTTLib.OverviewVisibleEnum.exOverviewShowAllVisible
	End With
	.ColumnAutoResize = False
	.ContinueColumnScroll = False
	rs = CreateObject("ADOR.Recordset")
	With rs
		.Open("Orders","Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Program Files\Exontrol\ExG2antt\Sample\Access\misc.accdb",3,3)
	End With
	.DataSource = rs
	.Items.AllowCellValueToItemBar = True
	.Columns.Item(2).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
	.Columns.Item(4).Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.Columns.Add("Task")
	.ScrollBySingleLine = True
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 78
	End With
	With .Items
		h = .AddItem("Default-Size")
		.ItemHeight(h) = 48
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K1","<img>pic1</img>")
		h = .AddItem("Custom-Size")
		.AddBar(h,"Task",#1/2/2001#,#1/6/2001#,"K2","<img>pic1:18</img>")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.set_HTMLPicture("pic1","c:\exontrol\images\zipdisk.gif")
	.HeaderHeight = 48
	.Columns.Add("DefaultSize").HTMLCaption = "Default-Size <img>pic1</img> Picture"
	.Columns.Add("CustomSize").HTMLCaption = "Custom-Size <img>pic1:16</img> Picture"
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 128
		.FirstVisibleDate = #1/1/2008#
		.MarkTodayColor = .BackColor
		.LevelCount = 2
		.MarkSelectDateColor = &H7fcbc0ff
		.SelectLevel = 1
		.SelectDate(#1/8/2008#) = True
		.SelectDate(#1/9/2008#) = True
		.SelectDate(#1/10/2008#) = True
	End With
	.DefaultItemHeight = 72
	.Columns.Add("Default")
	With .Items
		.AddBar(.AddItem(""),"",#1/7/2008#,#1/12/2008#,"","<b>MarkSelectDateColor(32)</b><br>should be <font ;11><i>0x7F000000 + RGB(rr,gg,bb)</i></font><br> or in the format as: <font ;" & _
"11><i>0x7FBBGGRR</i></font>, <br>where BB is the hexa value for Blue, <br>GG for grean and so on.")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.SelBackMode = EXG2ANTTLib.BackModeEnum.exTransparent
	.ShowFocusRect = False
	With .ConditionalFormats
		With .Add("dbl(%1)-dbl(%0) = 1")
			.BackColor = RGB(255,0,0)
			.ApplyTo = &H1
		End With
		With .Add("dbl(%0)-dbl(%1) = 3")
			.BackColor = RGB(255,255,0)
			.ApplyTo = EXG2ANTTLib.FormatApplyToEnum.exFormatToColumns
		End With
		With .Add("dbl(%1)-dbl(%0) = 4")
			.ForeColor = RGB(128,128,128)
			.Bold = True
			.ApplyTo = EXG2ANTTLib.FormatApplyToEnum.exFormatToItems
		End With
	End With
	With .Columns
		.Add("C1").Width = 8
		.Add("C2").Width = 8
		.Add("")
	End With
	.Chart.PaneWidth(True) = 0
	With .Items
		.CellValue(.AddItem(2),1) = 3
		.CellValue(.AddItem(5),1) = 2
		.CellValue(.AddItem(5),1) = 6
		.CellValue(.AddItem(2),1) = 6
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 255
	End With
	With .Items
		.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/5/2001#,"K1")
		.AddBar(.AddItem("Task 2"),"Task",#1/2/2001#,#1/5/2001#,"K2")
		.AddBar(.AddItem("Task 3"),"Task",#1/2/2001#,#1/5/2001#,"K3")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 25
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
		.NonworkingDays = 0
		.Bars.Item("Task").Height = 15
	End With
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
		h = .AddItem("Red-Frame")
		.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 255
		h = .AddItem("Green-ThickFrame")
		.AddBar(h,"Task",#1/4/2001#,#1/7/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 4099
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 32768
		h = .AddItem("Red-ThickFrame/Shadow")
		.AddBar(h,"Task",#1/5/2001#,#1/8/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 12291
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 255
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.HeaderHeight = 32
	With .Chart
		.FirstVisibleDate = #7/1/2011#
		.AdjustLevelsToBase = True
		.PaneWidth(False) = 0
		.LevelCount = 2
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = EXG2ANTTLib.UnitEnum.exDay
		End With
		With .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = EXG2ANTTLib.UnitEnum.exHour
			.FormatLabel = "int(value) case ( 0 : 'Shift <b>1</b><br><font ;11>' + yearday(dvalue) + '</font>/365 ' ; 8 : 'Shift <b>2</b><br>' + weekday(dv" & _
"alue) + '/20'; 16 : 'Shift <b>3</b><br>' + (weekday(dvalue) case ( 0 : '12/22'; 1 : '12/23'; 2 : '2/3'; 3 : '12/13'; 4 : '22/34'" & _
" ; 5 : '102-<fgcolor=FF0000><b>31</b></bgcolor>'; 6 : '1/1' ) )  ) "
		End With
		.UnitWidth = 64
		.NonworkingDays = 0
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 25
	With .VisualAppearance
		.Add(1,"gBFLBCJwBAEHhEJAEGg4BOUMQAAYAQGKIYBkAKBQAGaAoDDYMgzQwAAxDELMEwsACEIrjKCVIgkHYJRjGEZxMAsEwjAoaQChEZRUhEMgxDDIIyAJIcaw0GSEZwgOQZB" & _
"iOEYnDANkIYJDSIYHTZIUzTJAdGSVJKNKAoKCaEgORo5SpNUghBDYKQTJyeagkaaRVCWLplRCNIwWNJdVwjEaQaaiarKNqKNpSViAEqSdKEZRLOyRZyiKQMEreY4EUDQ" & _
"cxUPYMNYaAC6AAparpbwCFpSYpRND3TaEE4jSLKAA0HD6QqebIDDJaFq6PbVXSTOLPNhgPQcWxeVJBXjLExUALGSYLC6nKayHZcHACKK5VbVW6ZZDdNy/BLQeD4QANG4" & _
"riuNJriMV4dgWVgHh+ZpgCeEIQEQJIgGkMYdA6JwjC0VAAmaJgQgmPp4lCWgSCiaB+DKIYIjqQpllMf6JgYAoAmASAWAaAZggQDJ/gKYJIDYDoDmECBGAOBBhEgVgUgS" & _
"YRoGYGYGCGKB2BCBwhmiBgLggIgoHoJIJGGKIeCiBYiiiLgXgCIpohoMIMGKGJODSCwghiZg6g6Y5InYPh/lAECAg")
		.Add(2,"CP:1 2 2 -2 -2")
		.Add(3,"CP:1 -5 -5 5 5")
		.Add(4,"XP:Window 19 1")
		.Add(5,"XP:TreeView 2 1")
	End With
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 128
		.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exHLines
	End With
	With .Items
		h = .AddItem("Default")
		.AddBar(h,"Task",#1/2/2001#,#1/5/2001#,"K1")
		h = .AddItem("Red-Frame")
		.AddBar(h,"Task",#1/3/2001#,#1/6/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 255
		h = .AddItem("Green-ThickFrame")
		.AddBar(h,"Task",#1/4/2001#,#1/7/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 4099
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 32768
		h = .AddItem("Red-ThickFrame/Shadow")
		.AddBar(h,"Task",#1/4/2001#,#1/7/2001#,"K1")
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarPattern) = 12291
		.ItemBar(h,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 255
		h = .AddItem("EBN-Frame-Border")
		.AddBar(h,"Task",#1/5/2001#,#1/9/2001#,"K2")
		.ItemBar(h,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 16777216
		h = .AddItem("EBN-Inside Frame")
		.AddBar(h,"Task",#1/9/2001#,#1/13/2001#,"K3")
		.ItemBar(h,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 33554432
		h = .AddItem("EBN-Outside Frame")
		.AddBar(h,"Task",#1/15/2001#,#1/18/2001#,"K4")
		.ItemBar(h,"K4",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 50331648
		h = .AddItem("EBN-XP Close Button")
		.AddBar(h,"Task",#1/15/2001#,#1/18/2001#,"K5")
		.ItemBar(h,"K5",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 67108864
		h = .AddItem("EBN-XP TreeView Glyph")
		.AddBar(h,"Task",#1/15/2001#,#1/18/2001#,"K6")
		.ItemBar(h,"K6",EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor) = 83886080
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.FirstVisibleDate = #7/1/2011#
		.AdjustLevelsToBase = True
		.PaneWidth(False) = 0
		.LevelCount = 2
		With .Level(0)
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.Label = "<b><%d%> - <%mmmm%> - <%yyyy%>"
			.Unit = EXG2ANTTLib.UnitEnum.exDay
		End With
		With .Level(1)
			.Label = "<%h%>"
			.Count = 8
			.Unit = EXG2ANTTLib.UnitEnum.exHour
			.ReplaceLabel(0) = " Shift 1"
			.ReplaceLabel(8) = " Shift 2"
			.ReplaceLabel(16) = " Shift 3"
		End With
		.UnitWidth = 48
		.NonworkingDays = 0
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.DrawDateTicker = True
		.DateTickerLabel = "<%mmm%> <%d%><br><b><%yyyy%>"
	End With
	With .Items
		h = .AddItem("Tasks A")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(h,"Task",#1/5/2001#,#1/9/2001#,"K2")
		.SelectableItem(.AddItem()) = False
		h = .AddItem("Tasks B")
		.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"K1")
		.AddBar(h,"Task",#1/8/2001#,#1/11/2001#,"K2")
	End With
End With

Dim h
With AxG2antt1
	.Columns.Add("Task")
	With .Chart
		.PaneWidth(False) = 64
		.FirstVisibleDate = #1/1/2001#
		.Bars.Item("Task").Def(EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip) = "<b><%=%9 + '/' + %C0%></b><br><upline><dotline>Start: <%=%1%><br>End: <%=%2%><br>Duration: <%=(%2-%1)%><br>Working: <%=%258%>"
	End With
	With .Items
		h = .AddItem("Tasks A")
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"K1")
		.AddBar(h,"Task",#1/5/2001#,#1/9/2001#,"K2")
		h = .AddItem("Tasks B")
		.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"K1")
		.AddBar(h,"Task",#1/8/2001#,#1/11/2001#,"K2")
	End With
End With

With AxG2antt1
	.BeginUpdate()
	With .ConditionalFormats.Add("1")
		.Bold = True
		.ForeColor = RGB(255,0,0)
		.ApplyTo = &H1
	End With
	.Columns.Add("C1")
	With .Columns.Add("C2")
		.HeaderBold = True
		.HTMLCaption = "<fgcolor=FF0000>C2"
	End With
	With .Items
		.CellValue(.AddItem(10),1) = 11
		.CellValue(.AddItem(12),1) = 13
	End With
	.EndUpdate()
End With

' Click event - Occurs when the user presses and then releases the left mouse button over the tree control.
Private Sub AxG2antt1_ClickEvent(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AxG2antt1.ClickEvent
	With AxG2antt1
		.Chart.RemoveTimeZone("Z1")
	End With
End Sub

With AxG2antt1
	With .Chart
		.PaneWidth(False) = 18
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2010#
		.MarkTimeZone("Z1",#1/4/2010#,#1/8/2010#,16744544)
	End With
End With

With AxG2antt1
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.CustomFilter = "checked||-1|||unchecked||0"
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With

With AxG2antt1
	With .Columns.Add("Check")
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exCheck
	End With
	With .Items
		.AddItem(True)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With

' ButtonClick event - Occurs when user clicks on the cell's button.
Private Sub AxG2antt1_ButtonClick(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_ButtonClickEvent) Handles AxG2antt1.ButtonClick
	With AxG2antt1
		Debug.Print( "ButtonClick" )
		Debug.Print( .Items.CellCaption(e.item,e.colIndex) )
		Debug.Print( e.key )
	End With
End Sub

Dim h,s
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 22
	.HeaderHeight = 22
	.Appearance = EXG2ANTTLib.AppearanceEnum.None2
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exRowLines
	.ScrollBySingleLine = False
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.set_HTMLPicture("pic1","c:\exontrol\images\auction.gif")
	.Chart.PaneWidth(True) = 0
	With .Columns
		With .Add("Type")
			.Width = 48
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		End With
		With .Add("Appearance")
			.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
			.Alignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
			.HeaderAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
		End With
	End With
	With .Items
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.CellValue(h,1) = "Button <b>1</b>"
		.CellHasButton(h,1) = True
		h = .AddItem("Items.<b>CellButtonAutoWidth</b> property")
		.CellValue(h,1) = " Button <b>2</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.CellValue(h,1) = " <img>2</img>Button <b>3</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> property")
		.ItemHeight(h) = 32
		.CellValue(h,1) = " <img>2</img>Button <b>4</b> <img>pic1</img> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		h = .AddItem("Items.<b>CellHasButton</b> in splitted cells")
		.CellValue(h,1) = " Button <b>5.1</b> "
		.CellHasButton(h,1) = True
		.CellButtonAutoWidth(h,1) = True
		s = .SplitCell(h,1)
		.CellValue(0,s) = " Button <b>5.2</b> "
		.CellHasButton(0,s) = True
		.CellButtonAutoWidth(0,s) = True
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.CellValue(h,1) = "Visible when clicking the cell"
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.EditType
			.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
			.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
			.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
			.ButtonWidth = 24
		End With
		h = .AddItem("Column.<b>Editor</b>, Items.<b>CellEditor</b>")
		.CellValue(h,1) = 3
		With .CellEditor(h,1)
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
			.AddItem(1,"Flag 1")
			.AddItem(2,"Flag 2")
			.AddItem(4,"Flag 4")
			.AddItem(8,"Flag 8")
			.AddButton("C1",1,0,"This is a bit of text that's shown when the cursor hovers the button C1")
			.AddButton("C3",2,0,"This is a bit of text that's shown when the cursor hovers the button C2")
			.AddButton("C4",1,0,"This is a bit of text that's shown when the cursor hovers the button C3")
			.ButtonWidth = 24
		End With
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	With .Chart
		.LevelCount = 2
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 96
	End With
	.Columns.Add("Column").Data = "Extra_Data_Column"
	With .Items
		h = .AddItem("Item 1")
		.ItemData(h) = "Extra_Data_Item 1"
		.CellData(h,0) = "Extra_Data_Item 1_Cell_0"
		.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"B1")
		.ItemBar(h,"B1",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Extra_B1_Data"
		h = .AddItem("Item 2")
		.ItemData(h) = "Extra_Data_Item 2"
		.AddBar(h,"Task",#1/6/2001#,#1/10/2001#,"B2")
		.ItemBar(h,"B2",EXG2ANTTLib.ItemBarPropertyEnum.exBarData) = "Extra_B2_Data"
		.AddLink("L1",.FindItem("Item 1",0),"B1",.FindItem("Item 2",0),"B2")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkUserData) = "Extra_Link_Data"
	End With
End With

Dim h,h1,h2,h3
With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.Indent = 11
	.HasLines = EXG2ANTTLib.HierarchyLineEnum.exSolidLine
	.Items.AllowCellValueToItemBar = True
	With .Columns
		.Add("Tasks")
		.Add("Start").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 1
		.Add("End").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 2
		.Add("Duration").Def(EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty) = 513
	End With
	With .Chart
		.ShowNonworkingDates = False
		.FirstVisibleDate = #9/20/2006#
		.AllowLinkBars = False
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.LevelCount = 2
		.PaneWidth(False) = 220
	End With
	With .Items
		h = .AddItem("Project")
		.AddBar(h,"Summary",#9/21/2006#,#10/3/2006#)
		h1 = .InsertItem(h,Nothing,"Task 1")
		.AddBar(h1,"Task",#9/21/2006#,#9/24/2006#)
		h2 = .InsertItem(h,Nothing,"Task 2")
		.AddBar(h2,"Task",#9/24/2006#,#9/28/2006#)
		h3 = .InsertItem(h,Nothing,"Task 3")
		.AddBar(h3,"Task",#9/28/2006#,#10/3/2006#)
		.DefineSummaryBars(h,"",h1,"")
		.DefineSummaryBars(h,"",h2,"")
		.DefineSummaryBars(h,"",h3,"")
		.ExpandItem(h) = True
		.ItemBold(h) = True
	End With
	.EndUpdate()
End With

' BarResizing event - Occurs when a bar is moving or resizing.
Private Sub AxG2antt1_BarResizing(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_BarResizingEvent) Handles AxG2antt1.BarResizing
	With AxG2antt1
		.Items.SchedulePDM(e.item,e.key)
	End With
End Sub

Dim h1,h2,h3
With AxG2antt1
	.BeginUpdate()
	.DefaultItemHeight = 24
	.AntiAliasing = True
	.Columns.Add("Task")
	With .Chart
		.LevelCount = 2
		With .Bars.Add("Task:Split")
			.Shortcut = "Task"
			.Color = RGB(0,0,0)
			.Height = 17
			.Pattern = EXG2ANTTLib.PatternEnum.exPatternFrameShadow
		End With
		.FirstVisibleDate = #1/3/2001#
		.PaneWidth(False) = 48
		.LinksWidth = 2
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.AllowLinkBars = False
		.FirstWeekDay = EXG2ANTTLib.WeekDayEnum.exMonday
		.NonworkingDaysPattern = EXG2ANTTLib.PatternEnum.exPatternBDiagonal
	End With
	With .Items
		h1 = .AddItem("Task 1")
		.AddBar(h1,"Task",#1/4/2001#,#1/6/2001#,"K1")
		.ItemBar(h1,"K1",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		h2 = .AddItem("Task 2")
		.AddBar(h2,"Task",#1/2/2001#,#1/5/2001#,"K2")
		.ItemBar(h2,"K2",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		.AddLink("L1",h1,"K1",h2,"K2")
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound) = -1
		.Link("L1",EXG2ANTTLib.LinkPropertyEnum.exLinkColor) = 8421504
		h3 = .AddItem("Task 3")
		.AddBar(h3,"Task",#1/2/2001#,#1/6/2001#,"K3")
		.ItemBar(h3,"K3",EXG2ANTTLib.ItemBarPropertyEnum.exBarKeepWorkingCount) = True
		.AddLink("L2",h2,"K2",h3,"K3")
		.Link("L2",EXG2ANTTLib.LinkPropertyEnum.exLinkText) = "<br><br><br><br>This link <u>delays</u> the bars<br>with <b>2</b> working days"
		.Link("L2",EXG2ANTTLib.LinkPropertyEnum.exLinkPDMWorkingDelay) = 2
		.Link("L2",EXG2ANTTLib.LinkPropertyEnum.exLinkShowRound) = -1
		.SchedulePDM(0,"K1")
	End With
	.EndUpdate()
End With

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub AxG2antt1_CellStateChanged(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_CellStateChangedEvent) Handles AxG2antt1.CellStateChanged
	With AxG2antt1
		.Items.SelectItem(e.item) = True
	End With
End Sub

With AxG2antt1
	.Columns.Add("Check").Def(EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox) = True
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
		.AddItem(3)
	End With
End With

Dim hChild,hSummary
With AxG2antt1
	.BeginUpdate()
	With .Chart
		.PaneWidth(False) = 96
		.FirstVisibleDate = #1/1/2011#
		.LevelCount = 2
	End With
	.Columns.Add("Default")
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Items
		hSummary = .AddItem("Project")
		.AddBar(hSummary,"Summary",#1/1/2011#,#1/1/2011#,"Sum")
		hChild = .InsertItem(hSummary,0,"Task 1")
		.AddBar(hChild,"Task",#1/2/2011#,#1/4/2011#,"Task1")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task1")
		hChild = .InsertItem(hSummary,0,"Task 2")
		.AddBar(hChild,"Task",#1/4/2011#,#1/6/2011#,"Task2")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task2")
		hChild = .InsertItem(hSummary,0,"Task 3")
		.AddBar(hChild,"Task",#1/6/2011#,#1/8/2011#,"Task3")
		.DefineSummaryBars(hSummary,"Sum",hChild,"Task3")
		.ExpandItem(hSummary) = True
	End With
	.EndUpdate()
End With

Dim hChild,hSummary
With AxG2antt1
	.BeginUpdate()
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Chart.PaneWidth(True) = 0
	.Columns.Add("Default")
	With .Items
		hSummary = .AddItem("Project")
		hChild = .InsertItem(hSummary,0,"Task 1")
		hChild = .InsertItem(hSummary,0,"Task 2")
		hChild = .InsertItem(hSummary,0,"Task 3")
		.ExpandItem(hSummary) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Members").Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
	With .Chart
		.FirstVisibleDate = #9/20/2006#
		.AllowLinkBars = False
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.AllowSelectObjects = EXG2ANTTLib.SelectObjectsEnum.exNoSelectObjects
		.LevelCount = 2
		.PaneWidth(False) = 96
		.Bars.Item("Task").OverlaidType = EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIncludeCaption Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
	End With
	With .Items
		h = .AddItem("Member <b>1</b>")
		.AddBar(h,"Task",#9/21/2006#,#9/23/2006#,"T102","Task <b>102</b>")
		.ItemBar(h,"T102",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"T102",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
		h = .AddItem("Member <b>2</b>")
		h = .AddItem("Member <b>3</b>")
		h = .AddItem("Member <b>4</b>")
		.AddBar(h,"Task",#9/21/2006#,#9/23/2006#,"T103","Task <b>103</b>")
		.ItemBar(h,"T103",EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption) = 18
		.ItemBar(h,"T103",EXG2ANTTLib.ItemBarPropertyEnum.exBarCanMoveToAnother) = True
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	With .Chart
		.LevelCount = 2
		.UnitWidth = 38
		.PaneWidth(False) = 28
		.FirstVisibleDate = #3/4/2011#
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.ResizeUnitScale = EXG2ANTTLib.UnitEnum.exHour
	End With
	.Columns.Add("Default")
	With .Items
		.AddBar(.AddItem("ASS"),"Task",#3/7/2011#,#3/7/2011 3:30:00 AM#)
		.AddBar(.AddItem("EMB"),"Task",#3/7/2011 3:30:00 AM#,#3/8/2011 9:15:00 AM#)
		.AddBar(.AddItem("TES"),"Task",#3/8/2011 9:15:00 AM#,#3/8/2011 1:45:00 PM#)
	End With
	.EndUpdate()
End With

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub AxG2antt1_AddItem(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_AddItemEvent) Handles AxG2antt1.AddItem
	With AxG2antt1
		.Items.ItemMinHeight(e.item) = 18
		.Items.ItemMaxHeight(e.item) = 72
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.ItemsAllowSizing = EXG2ANTTLib.ItemsAllowSizingEnum.exResizeItem
	.ScrollBySingleLine = False
	.BackColorAlternate = RGB(240,240,240)
	.Columns.Add("Names")
	With .Items
		.AddItem("Mantel")
		.AddItem("Mechanik")
		.AddItem("Motor")
		.AddItem("Murks")
		.AddItem("Märchen")
		.AddItem("Möhren")
		.AddItem("Mühle")
	End With
	.Columns.Item(0).SortOrder = EXG2ANTTLib.SortOrderEnum.SortAscending
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Def")
	With .Items
		h = .AddItem("Root")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.PutItems(.GetItems(-1))
End With

With AxG2antt1
	.ReadOnly = EXG2ANTTLib.ReadOnlyEnum.exReadOnly
	With .Chart
		.AllowCreateBar = EXG2ANTTLib.CreateBarEnum.exNoCreateBar
		.BarsAllowSizing = False
		.AllowLinkBars = False
	End With
End With

' MouseDown event - Occurs when the user presses a mouse button.
Private Sub AxG2antt1_MouseDownEvent(ByVal sender As System.Object, ByVal e As AxEXG2ANTTLib._IG2anttEvents_MouseDownEvent) Handles AxG2antt1.MouseDownEvent
	With AxG2antt1
		.BeginUpdate()
		.Columns.Item(AxG2antt1.ColumnFromPoint(e.x,e.y)).Selected = True
		.Items.SelectAll()
		.EndUpdate()
	End With
End Sub

With AxG2antt1
	.BeginUpdate()
	.MarkSearchColumn = False
	.SingleSel = False
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
	.SortOnClick = EXG2ANTTLib.SortOnClickEnum.exNoSort
	With .Columns
		.Add("Column1")
		.Add("Column2")
	End With
	With .Items
		.CellValue(.AddItem("One"),1) = "One"
		.CellValue(.AddItem("Two"),1) = "Two"
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Item")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.Filter = "Child 1"
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
	End With
	With .Columns.Add("Date")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exNoItems
		.Filter = #12/28/2010#
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exDate
	End With
	.FilterCriteria = "%0 or %1"
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarOr,"<font ;18><fgcolor=FF0000>or</fgcolor></font>")
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAnd,"<font ;18><fgcolor=FF0000>and</fgcolor></font>")
	With .Items
		h = .AddItem("Root 1")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/27/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/28/2010#
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.CellValue(.InsertItem(h,Nothing,"Child 1"),1) = #12/29/2010#
		.CellValue(.InsertItem(h,Nothing,"Child 2"),1) = #12/30/2010#
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Date")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Date")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox Or EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Dates")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
		.Filter = "to 12/27/2010"
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Dates")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exNoItems
		.Filter = "to 12/27/2010"
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exDate
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.ApplyFilter()
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	With .Columns.Add("Dates")
		.SortType = EXG2ANTTLib.SortTypeEnum.SortDate
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.DisplayFilterDate = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		.AddItem(#12/27/2010#)
		.AddItem(#12/28/2010#)
		.AddItem(#12/29/2010#)
		.AddItem(#12/30/2010#)
		.AddItem(#12/31/2010#)
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarExclude,"Leaving out")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowExclude Or EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowFocusItem Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.SelectItem(.InsertItem(h,Nothing,"Child 2")) = True
		.ExpandItem(h) = True
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowBlanks Or EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowBlanks Or EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exShowCheckBox
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = False
		.FilterList = EXG2ANTTLib.FilterListEnum.exSingleSel
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.set_Description(EXG2ANTTLib.DescriptionTypeEnum.exFilterBarAll,"")
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.DisplayFilterPattern = True
		.FilterList = EXG2ANTTLib.FilterListEnum.exNoItems
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
		.LevelCount = 3
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.Label(EXG2ANTTLib.UnitEnum.exHour) = ""
		.Label(EXG2ANTTLib.UnitEnum.exMinute) = ""
		.Label(EXG2ANTTLib.UnitEnum.exSecond) = ""
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
		.AddBar(.AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
		.LevelCount = 3
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
		.AddBar(.AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
		.LevelCount = 3
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowChangeUnitScale Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
		.LevelCount = 3
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartMiddle Or EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.MaxUnitWidth = 128
		.MinUnitWidth = 8
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
		.AddBar(.AddItem(""),"",#1/8/2001#,#1/8/2001#,"Info","Click the <b>middle</b> mouse button and start dragging")
	End With
	.EndUpdate()
End With

With AxG2antt1
	.BeginUpdate()
	.Columns.Add("Task")
	With .Chart
		.FirstVisibleDate = #1/1/2001#
		.PaneWidth(False) = 48
		.ShowNonworkingDates = False
		.LevelCount = 3
		.UnitScale = EXG2ANTTLib.UnitEnum.exDay
		.AllowResizeChart = EXG2ANTTLib.ResizeChartEnum.exAllowResizeChartHeader
		.MaxUnitWidth = 128
		.MinUnitWidth = 8
	End With
	With .Items
		.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/6/2001#,"K1")
		.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/10/2001#,"K1")
		.AddBar(.AddItem("Task C"),"Task",#1/10/2001#,#1/14/2001#,"K1")
	End With
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	With .Columns.Add("Items")
		.DisplayFilterButton = True
		.FilterType = EXG2ANTTLib.FilterTypeEnum.exFilter
		.Filter = "Child 2"
	End With
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 ropos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 ropos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 ropos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 ropos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 ropos '-<b>||A-Z'"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 ropos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = False
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.ApplyFilter()
	.EndUpdate()
End With

Dim h
With AxG2antt1
	.BeginUpdate()
	.Chart.PaneWidth(True) = 0
	.LinesAtRoot = EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
	.Columns.Add("Items")
	With .Columns.Add("Pos.1")
		.FormatColumn = "1 rpos ''"
		.Position = 0
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.2")
		.FormatColumn = "1 rpos ':'"
		.Position = 1
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.3")
		.FormatColumn = "1 rpos ':|A-Z'"
		.Position = 2
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.4")
		.FormatColumn = "1 rpos '|A-Z|'"
		.Position = 3
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.5")
		.FormatColumn = "'<font Tahoma;7>' + 1 rpos '-<b>||A-Z'"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 4
		.Width = 32
		.AllowSizing = False
	End With
	With .Columns.Add("Pos.6")
		.FormatColumn = "'<b>'+ 1 rpos '</b>:<fgcolor=FF0000>|A-Z|'"
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		.Position = 5
		.Width = 48
		.AllowSizing = False
	End With
	With .Items
		h = .AddItem("Root 1")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
		.ExpandItem(h) = True
		h = .AddItem("Root 2")
		.InsertItem(h,Nothing,"Child 1")
		.InsertItem(h,Nothing,"Child 2")
	End With
	.EndUpdate()
End With